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About this book 


This book is full of fun 
programs for you to type in 
and run on a computer. 
There are also ideas for 
chang ing" the programs 
and extra lines you can 
add to make them more 
exciting. At. the back of the 
book there are some 
instructions for adding 
sound and colour too. 


You do not need to 
know anything about 
programming to run the 
programs. You can find out how 
to type them in and make them work on the 
few T pages. There are also lots of hints to 
help you if things go wrong. 


The programs are written in 
a computer language called 
BASIC. Each home computer 
understands a slightly 
different version of BASIC 
and you will need to change 
some program lines to suit 


your computer. These lines 
are clearly marked and on 
pages 40-48 there are lists of 
line changes for Spectrum, 
BBC, Electron, Commodore 
64, VIC 30 and Apple 
computers. 


If you have a different make 
of computer, you may be able 
to work out the changes you 
need to make from your 
computer's manual. 
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Typing in programs 

To make a computer cio something , you need to type in 
a list of instructions called a program* Programs for 
home computers are written in BASIC. BASIC is quite 
like English, with some special words and symbols. 
Below you can see what a program written in BASIC 
looks like. 



How to type in a 
program 



When you switch on a 
computer, a symbol called 
a cursor flashes on the 
screen. This means that 
you can start typing in a 
program. 



This program will make a 
computer ask your name and 
then put a message on the 
screen. Each instruction in 
the program is on a separate 


line and each Line begins 
with a number. The numbers 
make the computer carry out 
the instructions m the right 
order. 


At the end of each line, 
press the key marked 
RETURN, or ENTER. This 

puts the program line into 
the computer's memory , 
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IP pfr ] NT ''UWAT'S YOUR 
20 CNPUT Hi 


Type the program just as it 
is printed , On most 
computers you type BASIC 
commands letter by letter* 
but on some you just press 
one key. 


When you have finished with the program* just type NEW 
and press RETURN (or ENTER). This wipes the instructions 
from the computer's memory so it is ready for you to type in 
another program. 


If you make a mistake > rtib 
it out by pressing the 
delete key* The label on the 
key varies from one make 
of computer to another. 


Running: the program 


When you have finished typing m the program, you type the 
command RUN and press RETURN (or ENTER). This is 
called running the program and it makes the computer 
carry out your instructions. RUN does not need a line 
number because it is not part of the program. 


on the opposite page, try 
running it. First the 
computer will ask your 
name. Type it in and press 
RETURN (or ENTER). Then 
the computer will give you a 


message. You can make the 
computer run the program 
again by typing RUN again 
and pressing RETURN (or 
ENTER), Try it a few more 
times, using different 
nanies. 


Getting rid of the program 

r> 


HELLO SLIMY SID 
GOODBYE SLIMY SID 


Some computers 
dear the screen 
except for the 
cursor when you 
type NEW. 


NEW 
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This is the bug 1 
PRINT is -spelt 
wrongly. 


c*. ^ <erZ* 
®vl 


Can you spot 
the mistake in 
this program? 


What to do if things go wrong 


If a program does not 

work you have probably 

made a mistake typing it 

in. It is very easy to make 

mistakes when you type in 

programs. Mistakes in 

programs are called bugs. 

Some computers let you 

know if there is a bug in a 

program line when you ^ ie °° m P u ter tells you there 

press RETURN or ENTER, « a bug: in a program by 

but most wait until you try ? u uttin * a s P? cial mcssa f on 

J ^ the screen like the one above. 

to run the program. This is called an error 

message. It usually tells you 
what sort of mistake it is and 

How to de-bug a program 


what line it is in. Error 
messages are different on 
different computers and are 
often written in a sort of 
code. To find out what they 
mean, look in your 
computer s manual. 


First type LIST and press 
RETURN to display the 
program lines on the screen. 
Then check through the 
program lines for mistakes. 


Bugs arc not easy to find, but 
it is easier to spot them if you 
know what to look for. The 
bug spotting guide on page 
47 gives you some handy tips 
and hints. 


When you spot the bug. type 
the whole line again and 
press RETURN. Now if you 
list the program again, you 
will see that the new line has 
replaced the old one. 


6 If your computer's key is marked ENTER, press it each time you ace RETURN from now on. 


MLlm — W. 


Changing a program Special words 


In this book there are lots of 
ideas for adapting programs 
by adding or changing 
program lines. You do this in 
a similar way to de-bugging, 
as shown below. 


Most BASIC commands are understood by all computers 
but there are some which vary from computer to 
computer. In this book, lines with commands which 
vary are printed on a red stripe. In the boxes below you 
can find out what to do when you come across one of these. 



First type LIST and press 
RETURN to put the program 
lines on the screen. To 
change a line, type in the line 
number and the new 
instruction and press 
RETURN. 


When you see a line printed on a red stripe, turn to the 
conversion pages at the back of the book. Find the page 
for your computer, then look for the name and page 
number of the program you are typing in. 


r2 


LIST 


10 

PRINT 

"HELLO" 

?0 

PRINT 

"MONSTER" 

15 

PR I NJT 

" UGLY" 




You add extra lines to 
programs in the same way. 
Their line numbers tell the 
computer where to put them 
in the program. 


If the line needs changing 
for your computer, you 
will find a conversion line 
with the same line 
number. Type this line 
instead of the one on the 


stripe. If there is no 
conversion line, this line 
does not need changing 
for your computer and you 
can type the line on the 
stripe, just as it is. 
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Happy Birthday 


The program on this 
birthday card makes the 
computer put a special 
birthday message on the 
screen. You could run it 
when one of your friends 
or family has a birthday. 
To see how the program 
works, type it into your 
computer and run it. 


20 LET A$- "HAPPY BIRTHDAY" 



Check the 

conversion pages to 
see if you need to 
change lines 10 
and 50. 






happy birthday 


low FROM 
YOUR COMPUTER 


PRINT: PRINT: PRINT 
FOR K=1 TO LEN(AS) 


30 


40 


50 PRINT 


60 FOR L - 1 TO 300: NEXT L 
70 NEXT K 

80 PRINT : PRINT :PR1NT 
90 PRINT "LOVE FROM" 

100 PRINT "YOUR COMPUTER' 


Running- the program 

When you run the program, 
the computer will write the 
words HAPPY BIRTHDAY 
letter by letter on the screen 
and then LOVE FROM YOUR 
COMPUTER. 
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LET AS ="HAPPY CHRISTMAS 
PRINT "LOVE FROM" 

PRINT "SANTA CLAUS" 


If you change the lines 
like this, you can run 
the program on 
Christmas Day. 


You could put your 
name here. 


Changing* the message 


L These are called 
quotes. 

.20 let as ' Birthday greetings' 

*90 PRINT "LOVE FROM" 

100 PRINT "THE MONSTER GANG" 


You can change the birthday 
message by typing different 
words inside the quotes in 
lines 20. 90 and 100. To do 


this, type LIST and press 
RETURN to put the program 
lines on the screen. Then 
retype the lines you want to 


change. In the pictures above 
there are some ideas for 
changing the message or 
you can invent messages of 


your own. 


Making the message repeat 


14 FOR L=1 TO 150 
16 NEXT l 
110 FOR L= 1 TO 600 
120 NEXT L 
130 GOTO 10 


To add these lines, 
list the program 
again and type 
them in. 




HAPP y 0i 



Now try adding the lines 
above to the program. They 
make the computer print the 
message again and again 


until you stop the program, 
or switch off the computer. 
You can find out how to stop 
the program on the right. 


Stopping the 
program 



You can make the 
computer stop running a 
program by pressing the 
ESCAPE key. The label on 
this key varies on different 
computers. You can find 
out what your computer 
calls it by looking on page 
46 of this book or in your 
computer’s manual. 
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Space monsters 



Remember to check 
line 10 in the 
conversion pages. 


There are 
5 spaces 
here. 


Use tills drawing of the 
monster to help you count 
the X's and spaces. 


There are 
13 X’s here 


The monster 
may took 
smaller on 
your screen. 


This program makes a picture of a 
computer space monster on your screen. 
The monster shape is made up of X s. so 
you must be careful to type all the X’s and 
the spaces in the right place. The design 
on the paper below will help you to count 
the number of X’s and spaces in each line. 
In the program the spaces are marked 
with the symbol l . For each press the 

space bar once . 


Space monster program 


10 CIS 


20 PRINT:PRINT:PRIN 
30 PRINT "□□□□□.XaX" 

40 PRINT "□□□uXXXXX" 

50 PRINT "□□□□XuXmX" 
m PRINT "nnntlXXXXX" 

70 PRINT "XXXXXXXXXXXXX" 
80 PRINT Jf XXaaXXXXXoPXX" 
90 PRINT "XXnnnXuXurDXX" 
100 PRINT "□□DDXXaXX" 


Running the program 

Type RUN to make the prog ram work 
If your monster looks wrong, type 
LIST and press RETURN and cheek 
the program lines to make sure you 
have the right number of X*s and 
spaces. 
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Making' the monster move 


If you add the program lines 
printed below you can make 
the monster wave its arms up 
and down. To do this, first 
type LIST followed by 
RETURN to put the program 
lines on the screen, then type 

I in the extra lines. Make sure 
you type each line exactly as 
it is printed and press the 
space bar every time you see 
the symbol □, 



J 



Design your own monster 



J Try making the monster look 
different by using letters such as O 
or S instead of X"s. To do this, retype all 
the lines starting with PRINT, using 
your letter instead of the Xs. 

2 


If you like, you can make a new monster 
of your own. Design the monster on a 
piece of squared paper like this. Then 
type NEW and press RETURN. Type the 
program again putting the letters and 
spaces from your design in quotes in 
PRINT lines. 


110 FOR K - 1 TO 300: NEXT K 


120 CLS| 

130 PR I NT: PR I NT : PRINT 
140 PRINT "□□□□□XoX" 

150 PRINT "□□cdXXXXX" 

160 PRINT "XXrJDXLX.JXuL XX” 
170 PRINT "XX-kiXXXXX inXX” 
180 PRINT "XXXXXXXXXXXXX” 
190 PRINT "□□□OXXXXX" 


200 PRINT 
210 PRINT "□□aoXXnXX' 
220 FOR K = 1 TO 
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Red Alert 


The program on this page puts a flashing 
“Reel Alert" message on the screen. Try 
typing it into your computer. 


Look at the 
conversion pages to 
see if you need to 
change this line, 


20 FOR K= 1 TO 300;NEXT K 
30 PRINT: PRINT: PRINT 
40 PRINT TAB(3);" DANGER" 
50 PRINT TAB{3)/'RED ALERT 
60 FOR K~ 1 TO 300: NEXT K 
70 GOTO 10 


Running the program 

Type RUN to start the program working. To 
stop the program, press ESCAPE (or your 
computer's key). 

Changing the program 

In the boxes below there are some ideas for 
changing the program. To change the 
program, stop it running and type LIST. 
Then type in the new versions of the lines 
you want to change. 


The message will carry cm 
flashing until you stop the 
program , 


Type this in lines SO and 
60 to make the message 
flash faster. 


40 PRINT TAB(14);' r DANGER" 
50 PRINT TAB(8);"RED ALERT 


TOR K = 1 TO 150: NEXT K 
FOR K-1 TO 5QQ rNEXT K 


Type this in lines SO and 
60 to make the message 
flash more slowly. 


Try these numbers 


You can move the message further across! 
the screen by putting a bigger number in 
brackets after TAB in lines 40 and 50. The 
number tells the computer how many 
spaces to leave before the words on the 
screen. 


You can make the message Hash at a 
different speed by changing the number 
300 in lines 20 and 60. A smaller number 
makes it flash quickly and a larger 
number makes it flash slowly. 
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More things to do 


HELLO , THIS IS VO! 
COMPUTER SPEAK IMG, 


1ENDLY 


Try putting: a new message, 
like the one above, inside the 
quotes in lines 40 and 50, 


Next time yon go into a computer shop try typing the 
program, with a message like this, into one of the shop's 
computers. 


Personal messages 

You can make the computer send a flashing 
message addressed to you, or whoever is 
running the program, by adding the lines on 
the right. To do this, stop the program, type 
LIST and then type in the new lines. You can 
find out how the new program works below. 


2 CLS 

4 PRINT "WHAT IS YOUR NAME?" 
6 INPUT N$ 

40 PRINT TABI3);N$;" IS GREAT" 
50 PRINT TAB(3>;NS;" RULES OX" 




WHO 7 t S YOUR NAME? 
? SLIMY 5 I D 


L. 



First the computer asks you 
your name. You should type 
it in and press RETURN. 


Then the computer Hashes 
these messages with your 
name in them on the screen. 


Try the program on your 
friends or make up some 
other names to type in. 
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Drawing pictures 

This program lets you 

make patterns and simple 

pictures with lines of stars 

on the screen. You tell the 

computer where to draw 

the lines by pressing 

certain keys. First type in / 

the program, then look at 

the bottom of the page to /| 

find out how to use it. Jfl 


There is no 
space between 
the quote 
marks in this 
line. 


Look at the conversion 
pages to see if you need to 
change any of the lines on 
red stripes. 


How to use the program 


These are 
the keys 
you press 
to draw 
the lines. 


If the star 
touches the 
edge of the 
screen, the 
picture may 
disappear. 


l_/mm 


1a. 

Up 

Down 


If M ]J 


When you type RUN the 
screen will go blank. To start 
drawing, press any key. A 
star will appear on the 
screen. 


To draw a line of stars going 
up the screen, press A. To 
draw a line going down, 
press Z. To draw lines left 
and right press N and M. 


Try making patterns on your 
screen. To stop the program, 
press the key marked 
ESCAPE (or your computer’s 
key). 
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* If this happens, press ESCAPE (or your computer’s key) and start again. 



Rubbing out stars 



These extx'a program lines enable you to rub 
out the last star you put on the screen by 
pressing* the space bar. Before you type in 
the extra lines, stop the program and type 
LIST to put the program on the screen. 


Printing spaces 



You can make a row of spaces by pressing 
one of the direction keys, then the space bar, 
several times. Tills is very useful for 
drawing pictures that need breaks in the 
lines. 




You should 
type in the 
symbol you 
want to use 
followed by 
RETURN. 


See page 36 to find 
out how to change 
the program to draw 
coloured stars. 


Patterns with different symbols 


3 CIS 


5 PRINT "WHAT SYMBOL" 
7 PRINT "DO YOU WANT?" 
9 INPUT S$ 


90 PRINT TA8(X,Y);S$ 


You can draw patterns with 
different symbols, such as &; 
or #. To do this, list the 
program again and type in 
these new lines. Now when 


Drawing in colour 


you run the program, the 
computer starts by asking 
you what symbol you want to 
use, as shown on the screen 
above. 
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Computer Sna 

You can make your 
computer play Snap by 
typing in the program 
on the right. Remember 
to check the conversion 
pages to see whether 
yon need to change any 
of the lines on the red 
stripes. You can find out 
how to play the game 
opposite. 



r 


heave a space inside 
the quotes before the 
words WELL DONE. 


L 



Snap program 
1® CIS 


Type two spaces 
inside the quotes in 
line 50. 


LET N=0: PRINT: PRINT: PRINT 

LETX=INT<RND<1)*10+1! 
LET Y--INT(RND(1)*10 + 1 

PRINT X;" 


LET AS -INKEY$ 

LET N = N + 1 

IF A$="S" AND X=Y THEN GOTO 110 
IF N< - 100 THEN GOTO 60 
GOTO 10 

PRINT " WELL DONE" 

FOR K= 1 TO 1000:NEXT K 
GOTO 10 




Chang ing' speed 

You can change the speed of 
the game very easily by 
altering the number IQO in 
line 90. A bigger number 
makes the game slower and a 
smaller number makes it 
faster. Try changing line 90 
as shown in the boxes on the 
right. If the game is still not 
the right speed for you, try 
other numbers in line 90, 


90 IF N< = 200 THEN GOTO 60 


90 IF N< =50 THEN GOTO 60 
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How to play the game 



When you run the program, 
the computer puts a pair of 
numbers on the screen as 
shown in the picture above. 


Then it puts another pair on 
the screen, and another, and 
so on, changing the numbers 
each time. 


When the two numbers are 
the same, try and press the S 
key {for Snap) before the new 
numbers appear on the 
screen. 


Word and number snap 




dim mo®)* 

FOR K = 1 TO 10 
READ N$(K);NEXT K 
PRINT N$(X);" ";Y; 

DATA "ON E",'TWO'V 'THREE", 
DATA "FIVE'V SIX'V'SEVEN" 
DATA "EIGHT" "NINE", "TEN" 


You can change the game so 
that the computer writes the 
first, number as a word. 

To do this, add the program 


hues in the box above. First 
stop the program, then list it 
and type in the new lines. If 
you find the new game is too 


fast, you can change the 
speed again to make it 
slower. 
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Leave no space 
inside these 
quotation marks 


Code 

program 


20 LET C$ = "":PRINT 

30 PRINT "TYPE IN YOUR MESSAGE" <• 

40 INPUT M$:LET L = LEN(MS) 

50 IF INT(L/2)Ol_/2 THEN LET M$-M$ + 
60 FOR K- 1 TO LEN(MS) STEP 2 
70 LET C$ C$+MID$(M$.K ‘ 1,1} 

80 LET C$~C$-t MID$(M$,K,1 ) 


Type one space 
inside these 
quotation marks 


90 NEXT K 


PRINT:PRINT "CODE MESSAGE 
PRINT:PRINT C$ 


Code-writer 

Here is a program to make 
a computer code and 
decode messages. You 
can use it to send top- 
secret information, or 
write private letters to 
your friends. 

Nobody will be able 
to crack the code 
without this 
program and 
the line changes 
shown 
opposite. 


How to use the program 




TYPE IN YOUR MESSAGE 
? SECRET MEETING WITH 
AGENT X AT THE HOLLOW 
TREE TONIGHT 



When you run the program, 
the computer asks you to 
type in your message. 


You should type it in and 
then press RETURN. 


The computer translates 
your message into code and 
puts it on the screen. 
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Exchanging secret messages 



If any of your friends have a 
compute! 1 you can exchange 
messages in code. You can 
pass them to one another by 
leaving them in a secret 



hiding: place. Spies call this a 
dead letter box. Your friend 
can pick up your messages 
when the coast is clear. 


Decoding messages 



To read the messages you 
have to decode them back 
into English. You can find 
out how to change the 
program to do this below. 


To decode secret messages 
you need to change lines 30 
and 110 of the code program. 
List the program and type in 
the new lines on the right. 
You can try out the decoding 
program with the coded 
messages in the pictures 
below. 



30 PRINT ' TYPE THE CODE MESSAGE' 


110 PR!NT:PRINT "DECODED MESSAGE:" 



When you type in a coded message 
make sure you type all the spaces. In 
these messages there is one space 
between each word, but there may be 
double spaces in other messages. 


} * 1 eneme 
’Jitarlj ni 

GOV UOSG 

ALDrTe^p, 

Mj WhTyuo 

RJLEf 



'Ol 


H 


0 


r 
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Remember to check the 
conversion pages. The 
instruction in line 20 is 
iifferent for most computers 


The rest of this line is 
printed below. Don’t press 
RETURN until you get to 
the end. 


Check the conversion 
pages to see if the 
lines on red stripes 
need changing. 


Puffing train program 

The program below makes a train puff 
across the screen. When you type in the 
program, make sure you type all the 
letters and spaces just as they are printed 
here. To help you do this, the spaces are 
marked with the symbol □. Whenever 
you see this, press the space bar once. 


10 CIS 
20- LET A~0: LET. B -29: 


FOR X = A TO B STEP C 


50 PRINT TAB(X);"aXXan!oDHa 
60 PRINT TAB(X);"an XXXXXXXn 
70 PRINT TAB(X);"aXXXXXXXXu 
80 PRINT TAB(X); 1 'aci00o0i :00iT' 


90 PRINT TA'B (Xf 7,4) 

1 00 -fF INTfX/2) THEN 

V, 


PRINT TAB&-! 8,3k' 1 **' ’ 


120 FOR K = 1 TO 100:NEXT K 
130 NEXT X 


Running the program 

When you run the program, 
the train appears on the left 
of the screen and moves to 


= 1 


the right, puffing out smoke 

as it goes. You can see what 
it looks like in the boxes on 
the right. 


xx ! h 
xxxxxxx 
xxxxxxxx 

OO O DO 



V /// ^ * 



XX • H 

xxxxxxx 

xxxxxxx 

OO O OO 


il 






27 NEXT X 


Look at the conversion 
pages to see if you need 
to change this line. 


The computer 
draws a track tike 
this on the screen. 


You can make the train move backwards as well as forwards 
by adding the new lines shown above. 


Now when you run the 
program, you press the Q. 
key to make the train move 


backwards and the P key to 
make it move forwards. 


On pages 38-39 you can 
find out how to make the 
computer draw a more 
realistic looking train 
using special compute! 1 
graphics commands. 


Adding a railway track 

The program lines on the 
right put a railway track on 
the screen for the train to 
run along. To add them to 
your program, type 
LIST. Then type the new 
lines. 


23 FOR X A TO B + 10 


Changing' direction 


115 IF X + 16>-A+10 THEN GOTO 120 


150 IF A$ = "" THEN GOTO 140 
160 IF AS - "P" THEN GOTO 20 
170 LETZ = A:LET A=B:LET B^Z:lET C 
180 GOTO 30 
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The computer 
makes up a 
short postcard 
message Hke 
this one. 


How to use the program 

whE “Looth° U 

gffiS**-' ■ 

\ v FftNTASt'C 


Computer postcard 

The program below will 
help you write holiday 
postcards. You could use it 
to make joke postcards 
and send them to your 
friends. 


20 PRINT ''WHERE ARE YQU?":INPUT p$ 

30 PRINT "WHAT SORT OF TIME" 

40 PRINT "ARE YOU HAVING?" :INPUT D$ 

50 PRINT "DESCRIBE THE WEATHER" 

60 INPUT W$ 

70 PRINT "AND THE FOOD";lNPUT F$ 

80 PRINT "WHAT'S YOUR NAME?":INPUT NS 
90 PRINT "WHO ARE YOU WRITING TO?" 

100 INPUT A$ 


120 PRINTiPRlNT "DEAR ";A$;" ":PR!NT 
130 PRINT"! AM HAVING A ";D$ 

140 PRINT "TIME HERE IN ";P$;" " 

150 PRINT "THE WEATHER IS ";W$ 

160 PRINT "AND THE FOOD IS 
170 PRINT "WISH YOU WERE HERE!" 

180 PRINT : PR I NT "LOVE FROM ";N$ 


When you run the program, the 
computer asks questions about 
your holiday. Type in your 
answers, pressing’ RETURN after 
each one. Then the computer 
clears the screen and writes a 
message using your answers. 
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Look in your computer's manual 
to find out how to save programs 
on tape. 


Writing thank-you letters 

C/tf 

n , Ascent, 

Gear 4 umL Atabg/ 

it ZZ72 

Lovr i^rpriSe 

/W SfUy SfcC 


You can turn the postcard 
program into a useful thank- 
you letter program. To change 
the program you type in the 


program works in the same 
way as the postcard program 
The computer makes up a 
message for a letter, like the 


lines in the box below. The new one above. 


If you have a casset 
recorder, you can save the 
program on tape and use it 
each time you want to write a 
thank-you letter. 





WHAT PRESENT DID YOU GET? 

? SPOTTY MAT 

WHEN DID YOU GET IT? 

? BIRTHDAY 
DESCRIBE rr 
? UNUSUAL 


Invent some / 
more messages ( 
and type them in \ 


quotes after the 
word DATA in 
lines 210-230. 


Thank-you letter lines 


20 

30 

40 

50 

70 

130 

140 

150 

160 


175 

190 

200 

210 

220 

230 


PRINT "WHAT PRESENT DID YOU GET?" 
INPUT PS 


PRINT "WHEN DID YOU GET IT? 
PRINT "DESCRIBE IT":INPUT D$ 
PRINT "THANK YOU VERY MUCH" 
PRINT "FOR THE ";D$;" ";P$ 
PRINT "THAT YOU GAVE ME FOR' 
PRINT "MY ";W$;" PRESENT." 
165 LET R = !NT(RND(1 ) * 5 + 1) 

170 FOR K=1 TO R:READ MS 
NEXT K'.PRINT MS 
DATA "IT WAS A BIG SURPRISE!" 


DATA "IT'S JUST WHAT I WANTED " 


DATA 

DATA 

DATA 


How to use the new 
program 


* number 40 
and press 
RETURN to 
get rid of line 

LiO- 


Fairs' you answer the 
computer’s questions. Then 
it writes a letter on the 
screen which ends with one 
of your messages. 
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Birthday fact-finder 


Using the program 


Computers are very good at calculations arid the 
program below will make a computer calculate how old 
you are in years, months and days. Try using the 
program to find out your exact, age. Then you can add 
extra prog ram lines to work out your age in the year 
2000 and the day of the week that you were born on. 


10 CL 5 DIM N 

20 FOR K = 1 TO 12:READ N(K):NEXT K 
30 PRINT "WHAT IS TODAY'S DATE?" 

40 INPUT D1,M1,Y1 

50 PRINT "WHEN WERE YOU BORN?" 

60 INPUT D2,M2,Y2:LET DA=D1-D2 
70 LET MA=M1 -M2: LET YA=Y1 -Y2 
80 IF DA>-0 THEN GOTO 100 
90 LET DA-DA + N{M1 ):LET MA = MA - 1 
100 IF MA> = 0 THEN GOTO 120 
110 LET MA = MA+12:LET YA-YA-1 
120 IF YAMolNT(YAM) THEN GOTO 140 
130 IF Ml -3 AND M2 ^2 THEN LET DA=DAk 1 
140 PRINT "'YOUR AGE TODAY IS" 

150 PRINT YA;" YEARS ";MA;" MONTHS" 
160 PRINT DA; JH DAYS" 

500 DATA 31,31,28,31,30,31 
510 DATA 30,31,31,30,31,30 

i This jump in the line 
( numbers enables you to 
( add extra lines later. 




Year 2000 


170 PRINT " IN YEAR 2000 YOU WILL BE"' 
180 PRINT " ";2000-Y2;" YEARS OLD" 


If you add these lines to the program, the 
computer will work out how old you will be 
in the year 2000. 



First the computer asks you 
today’s date. You must type 
the date in figures as shown 
below. 



WHAT IS TODAY'S DATE 
? 12 -e-Day 

l I <— Month 

T 1SS4 4- Year 



First type the day of the 
month and press RETURN. 
Then type the month and 
press RETURN and then the 
year and press RETURN. 



When the computer asks . 
type your date of birth in the 
same way . The computer will 
do a quick calculation and 
tell you exactly how old you 
are. 


s 
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Day-finder 

To make the computer work 
out what day of the week you 
were born on you need to add 
all the lines below to your 
program. There are some 
complicated calculations in 
lines 400 to 440 so make sure 
you type them carefully. 


MONDAY'S CHILD IS FAIR OF FACE 
TUESDAY'S CHILD IS FULL OF GRACE 
WEDNESDAY'S CHILD IS FULL OF WOE 
THURSDAY'S CHILD HAS FAR TO GO 
FRIDAY'S CHILD IS LOVING AND GIVING 
SATURDAYS CHILD WORKS HARD 
FOR A LIVING 
BUT THE CHILD THAT IS BORN 
ON THE SABBATH DAY 
IS BONNY AND BLITHE 
AND GOOD AND GAY 


Monday L s child is fair of 
face, 


On page 35 there are some more limes 
to add to tli is program. They will 
make the computer give you all sorts 
of information about your next 
birthday. 


25 FOR K = 1 TO 8:READ DS(K):NEXT K [ 

190 LET D = D2:LET M = M2:LET Y-Y2 J 

200 GOSUB 400 [ 

210 PRINT "YOU WERE BORN" A. 

220 PRINT "ON A ”;D$(X) 

230 STOP 

400 LET X = Y-1901 

410 LET E = INT(X/4| + (X *365)4 D 30 

420 FOR K = 1 TO M:LET E = E + N(K):NEXT K 

430 LET X = INT(7*I(E/7)-INT(E/7)) + .5) + 1 

440 IF M>2 AND Y/4-INTIY/4) THEN LET X=X+1 

450 RETURN 

520 DATA "SUNDAY'V'MONDAY", "TUESDAY","' 
530 DATA "THURSDAY", 1 "FRIDAY'V'SATURDAY" 




Star racer 


NUMBER 4 WINS 


NUMBER 5 WINS 


This is a program to make stars race each 
other across your computer screen. Opposite 
you can find out how to turn the race into a 
game you can play with a friend. Before 
typing the program lines check whether you 
need to make any conversions for your 
computer. 

should type a space before 
inside quotes in th is line. 


You 


star 


20 DIM X(6):LET Y-B 
30 FOR K 1 TO 6 


50 LET X(K1 = 2: NEXT K 
60 FOR K= 1 TO 6 


i PRINT TABIXJKI.K-IO;" ' 

5 IF X(K] = 37 AND Y = 0 THEN l 
3 LET R = fNT(RNDCO * 2(1) 


LET Y = K 


I LET R'- INTIRNDO 

100 IF R.= 1 THEN LET X(K) X(K) + 1 
110 NEXT K 


130 PRINT:PRINT "NUMBER ";Y;" WINS" 


Running' the race 


When yon run the program, 
the computer puts six stars 
on the left side of the screen. 
These are the "runners" in 
the race and they are 
numbered 1 to 6, 


The stars race each other 
across the screen and the 
first to reach the right wins. 
Every time you run the race 
the computer changes the 
speed of each star. 


When the race is over, run 
the program a few more 
times and you will see that 
there is usually a different 
winner each time. 
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Adding: a race track 



If you add these lines to the 
program, the computer will 
make a race track for the stars . 



on the screen and the 
stars move across the 
screen inside their own lanes. 


Now when you run 
program, the computer 
starts by putting the race 


Race game 

You can turn the race into a game you can play with a friend 
by adding the lines below to the program. The new program 
lets you both guess the winner before the race starts. You 
can see how it works in the boxes on the right. 




You only need Lo change this line if 
y on have an Apple or Coin in od o re 
computer. 

22 PRINT "'WHAT ARE YOUR NAMES?" 
24 PRINT "PLAYER 1": IN PUT A$ 

26 PRINT "PLAYER 2";INPUT 

LSfLET V - 

NT AS;" 

NT R<5" „ , ... 

PRINT:PRINT 


150 IF Y=G1 THEN PRINT "WELL DONE ";AS 
160 IF Y= G2 THEN PRINT "WELL DONE ";BS 
170 INPUT RS:GOTO 28 



Playing the game 



First the computer asks each 
of you your name. Type it in 
and press RETURN. 



Then it asks for your 
g uesses. Choose a star and 
type in its number. If your 
star wins, the computer 
sends you a message after 
the race. To play again, press 
RETURN, 
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On some computers you need U: 
add extra lines to this program, 
so check the conversion pages. 


50 IF Z(Q r W) = 1 THEN PRINT ”CRA$H";STQP 
60 IF A-Q THEN PRINT "WELL DQNE":STQP 


110 IF AS- ' J A" THEN LET W = W — 1 
120 IF A$ = "Z" THEN LET W = W + 1 
130 IF A$-"M" THEN LET Q=Q+1 
140 GOTO 40 


If you crash into an 
obstacle, Lhe t 

program stops and 
you lose the game, t 


To have another 
go, type RUN. 


Obstacle course game 


In this game you have to 
pit your wits against the 
computer as you steer a 
star round obstacles on the 
screen. Try it and see if 
you can complete the 
course. Then you can add 
some program lines to 
make the game more 
di fficult. 


As soon os you type RUN a 
star appears on the left of 
your screen as shown in the 
picture above. 


Then the screen starts filling 
up with small squares You 
must move the star across 
the screen avoiding all these 
•obstacles’*. 


To move the star, there are 3 
control keys. Press the A key 
to move the star up, Z to 
move it down and M to move 
it across to the right. 


S8 


On the Apple, the obstacles are O s instead of squares. 



Improving the game 



These pictures show what 
the game looks like when 
you add the lines below to the 
program, First the computer 


draws a “wall" round the 
edge of the screen with a gap 
in each side. 



The star is in the gap on the 
left and the gap on the right 
is the goal. The computer 


starts filling the area inside 
the walls with the obstacle 
blocks. 



To win the game you must 
steer the star through the 
blocks and into the goal on 
the right. If you bump into 
an obstacle or the wa 1 1 , you 
lose the game. 




Adding the extra 
lines 

To play the new version 
of this game, type in the 
lines on the right, Check 
the conversion pages to 
see whether you need to 
change lines 32 and 34 
to suit your computer. 


= 


33 FOR 1=1 TO B:FOR K 1 TO A 


35 NEXT K:NEXT L 

60 IF Z(Q,W) = 2 THEN PRINT "WELL DONE”:STOP 


22 FOR K = 1 TO A:LET Z(K,1) = 1 
24 LET Z(K,B) = 1 :NEXT K 
26 FOR L = 1 TO B:LET Z[1,L) = 1 
28 LET Z(A,L) = 1 :NEXT L 
31 LET Z(Q,W) = 0 
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Play this game with 
some friends and see 
who is the fastest. 


FIND A 


When you run the program, 
the computer tells you to find 
a key. 


When you find the key, press 
it and the computer will tell 
you how long you took to 
find it 


Then check your time. Get 
ready for the next go and 
press RETURN to play 
again. 


Find the key 

How fast ar e your 
reactions? The program 
opposite is for a game 
which tests your speed at. 
finding keys on a 
computer keyboard. You 
can find out how to play 
the game below and then 
there is an idea for 


improving it. 


30 



Improving the game 

To make the game better, 
you can add the lines on the 
right. Now when yon want to 
finish the game, type STOP 
and press RETURN. When 
you do this, the computer 
will tell you your best time, 
worst time and your average 
speed for finding the keys. 


Find the key program 



30 PRINT:PRINT “FIND ";CHR$<XI 




50 IF A$ = "" THEN LET N = N+1 :GOTO 40 
60 IF A$o CHR$(X) THEN GOTO 

70 LET S 


Line 70 is different for most 
computers so make sure you 
check the conversion pages. 


30 PRINT "YOU TOOK ";S;" SECONDS" 

90 PRINT "PRESS RETURN TO CONTINUE" 


100 INPUT RS 
110 GOTO 10 
120 PRINT "WRONG KEY":GOTO 



5 LET B = 100:LET W 
7 LET T=0:LET K=0 


0 


A 


If you have a 
Spectrum 
type ENTER 
instead of 
RETURN, 

J 


74 

75 

76 
105 
130 
140 
150 
160 



IF S<B THEN LET B=S 
iF S>W THEN LET W = S 
LET T=T +S:LET K = K-M 
IF RS~ "STOP"' THEN GOTO 130 
LET T = T/K:LET A = UNT(T*10))/10 
PRfNT "BEST TIME SECONDS"' 

PRINT "WORST TIME:";W;" SECONDS' 
PRINT "AVERAGE SECONDS" 
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Number puzzle programs, 

The programs on these two pages are for number 
games. In Guess the number the computer 
chooses a number and you have to try and 
guess it. In Min dreader you choose a number 
and the computer works out what it is. 

Guess the number 
10 CLS 
20 LET N^0 
30 LET M -100 
40 PR!NT:PRIMT 
50 LET R=INT(RND(1)*M + 1) 

60 PRINT "THINK OF A NUMBER" 

70 PRINT "BETWEEN 1 AND ";M 
80 LET N = N H 

90 PRINT "WHAT'S YOUR GUESS?" 

100 INPUT G 

110 IF G = R THEN GOTO 180 
120 IF G<R THEN PRINT "TRY A BIGGER NUMBER" 
130 IF G>R THEN PRINT 
140 IF N<10 THEN GOTO 80 
150 PRINT "YOU LOSE" 

160 PRINT "THE NUMBER WAS ";R 
170 STOP 

180 PRINT "WELL DONE" 

190 PRINT "YOU GOT IT IN ";N 


Look at the 
conversion pages 
to see if you need 
. . _ to change any of 

TRY A SMALLER NUMBER" / the lines on grey 

\ stripes. 

I — 


How to make the game easier 


T40 IF N<1 5 THEM GOTO m 


When you run the program, the coni] 
chooses a number between 1 and 100. You have 
ten chances to guess what it is. If your guess is 
wrong, the computer tells you whether to pick a 
bigger or a smaller number next time. 


This is the nu mber to 
change. It tells the 
computer the highest 
number it can choose. 


2 

30 LET M 


If you find the game too 
difficult, change line 140 as 
shown above. This gives you 
15 chances to guess the 
computer’s number. 


Another way to make the game easier is to make the 
computer choose numbers between 1 and 50, or 1 and 30, 
You can do this by changing the number in line 30 as shown 
above. 
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Mindreader 



In Mi lid render the computer 
tells you to think of a number 
between 1 and 100. Do not type 
, it in, just press RETURN when 
you have thought of one. To 
work out the number, the 
! computer asks you for the 
■ answers to several sums, so 
have a pen and paper handy. 


Mindreader program 


10 CLS 

20 PRINT "THINK OF A NUMBER" 

30 PRINT "BETWEEN 1 and 100" 

40 PRINT "THEN PRESS RETURN" 

50 INPUT RSiPRINT 
60 PRINT "DIVIDE THE NUMBER BY 3" 
70 PRINT "WHAT IS THE REMAINDER?” 
80 INPUT A 

90 if A> = 0 AND A< = 2 THEN GOTO 110 
100 GOSUB 280: GOTO 60 
110 PRINT "DIVIDE THE NUMBER BY 5" 
120 PRINT "WHAT IS THE REMAINDER?" 
130 INPUT B 

140 IF B> = 0 AND B< = 4 THEN GOTO 160 
150 GOSUB 280:GOTO 110 
160 PRINT "DIVIDE THE NUMBER BY 7" 
170 PRINT "WHAT IS THE REMAINDER?" 
180 INPUT C 

190 IF 0 = 0 AND C< = 6 THEN GOTO 210 

200 GOSUB 280:GOTO 160 

210 LET D = 70*A+21*B + 15*C 

220 IF D< = 105 THEN GOTO 240 

230 LET D = D-105:GOTO 220 

240 CLS 

250 PRINT;PRI NT: PRINT 

260 PRINT "YOUR NUMBER IS ";D 

270 STOP 

280 PRINT "THAT'S NOT RIGHT" 

290 PRINT "TRY AGAIN" 

300 RETURN 


(id 


Geography quiz 

10 


You can teat your 
knowledge of the world 
with the geography quiz 
program on the right. The 
computer asks you for' the 
names of the capital cities 
of 16 different countries. 
At the end of t he quiz the 
computer gives you a 
score. Try running the 
program and see how 
many answers you get 
right. 


20 

30 

40 

50 

60 

70 

80 

90 

100 

110 



CLS 

LET S=0 

DIM A$f16),BS(1 6) 

FOR K- 1 TO 16; READ A${K):NEXT K 
FOR 1 TO 16:RFAD 8$(K):NEXT K 
FOR L-1 TO 16 
PRINT rPRfNT :PRINT 
PRINT "WHAT IS THE CAPITAL" 

PRINT "CITY OF ";B$(L)i"?” 

INPUT R$ 

IF R$-AS(L) THEN GOTO 150 
PRINT "NO. THE CAPITAL OF" 

PRINT B$(U;" IS ";A$(L) 

GOTO 160 

PRINT "WELL DONE";LET S-S-rl 
FOR K- 1 TO 1000:NEXT K 
NEXT L 
CIS 

PRINT: PRINT: PRINT 
PRINT "YOU GOT ";S;" CORRECT" 

DATA "COPENHAGEN", "PARIS", "ROME" 

DATA "BRUSSELS", "PEKING", "BONN" 

DATA "STOCKHOLM", "MOSCOW", "CANBERRA" 
DATA "OSLO", "LISBON", "VIENNA", "CAIRO" 
DATA "LONDON", "ATHENS", "MADRID" 

DATA "DENMARK", "FRANCE", "ITALY" 

DATA "BELGIUM", "CHINA", "WEST GERMANY" 
DATA "SWEDEN", "RUSSIA", "AUSTRALIA" 

DATA "NORWAY", "PORTUGAL", "AUSTRIA" 
DATA "EGYPT", "ENGLAND", "GREECE", "SPAIN" 


If you have a 
Spectrum 
you will need to 
add an extra 
tine, so look at 
the conversion 
pages. 
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Times table quiz 



This program helps you 
with your maths. It makes 
the computer test your 
times tables by setting you 
ten sums. Each time you 
run the program, the 
sums are d i ffere nt . Hu n 
the program a few times 
and see what scores you 

get. Aa, 


10 LET N = 0 

20 FOR K = 1 TO 10 f 

30 CLS l 

40 PRINT:PR!NT:PRINT ( 

50 LET X=INT(RNDf1)*12 + 1) { 

60 LET Y=INT(RND(1 )*12 + 1 } ' 

70 PRINT "WHAT IS ";X;" X 
80 INPUT A 

90 IF A = X*Y THEN GOTO 110 
100 PRINT "WRONG. ITS ";X*Y:GOTO 120 
110 PRINT "CORRECT" :LET N = N + 1 
120 PRINT:PRINT 
130 PRINT "PRESS RETURN" 

140 INPUT AS 
T50 NEXT K 

160 PRINT "YOU SCORED ";N 


Remember to check 
the conversion pages 


YOUR NEX T BlBTW DAY 1$ 
ON A THURSDAY 
H IS IN 

[69£WSTI,VU AND 
VOJj A' .'ll 3E0 Y£AR$ OLD 


More birthday facts 


230 LET Y = Y1 

240 IF M2<M1 THEN LET Y = Y+1 
250 IF M2 = M1 AND D2<D1 THEN LET Y = Y + 1 l 
260 GOSUB 400 Y 

270 PRINT "YOUR NEXT BIRTHDAY IS ON A ";DS(X) 
280 LET Q1 = D1 -31:LET Q2 = D2-31 
290 FOR K=1 TO Ml :LET G1 =Q1 h N(K!:NEXT K 
300 FOR K= 1 TO M2:LET Q2-Q24 N(K): NEXT K 
310 LET Q-Q1-Q2 
320 IF Q>0 THEN LET Q-365 -Q 
330 IF Q<0 THEN LET Q = ABS{Q) 

340 PRINT "IT IS IN" 

350 PRINT Q;" DAYS TIME AND" 

360 PRINT "YOU WILL BE ";YA+ 1 YEARS OLD 
370 STOP 


Here are some extra lines to add 
to the Birthday fact-finder 
program on page 24, They make 
the computer tell you all sorts of 
things about your next birthday . 
Before you type them in. you 
need to type in all the program 
lines on pages 24 and 25. 
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Adding sound and colour 


On these two images there are extra 
program lines which will add sound 
effects to the Obstacle course game on 
page 28 and colour to the Drawing 
pictures program on page 14. In each 
case type in the whole program before 
adding the extra lines for your computer. 

Drawing' pictures in colour 

When you have added the lines, you can 
change the colour of the star by pressing C 
and the background colour by pressing P or 
B (try both). 


Commodore 64 


25 LET C = 14:LET 8 - 14: LET P-6 

41 IF A$="P" THEN LET P=P+1 

42 IF A£-'B" THEN LET G = B + 1 

43 IF A$="C" THEN LET C=C+ 1 

44 IF P> 15 THEN LET P=0 

45 3FB>15 THEN LET B = 0 

46 IF C>1 5 THEN LETC-0 

47 POKE 53281 ,P 

48 POKE 53280, B 

95 POKE 55336 + X + Y*4G,C 


Apple 


On the Apple you 
should remove lines 3- 9 { 
from the program by 
typing the line 
numbers followed by 
RETURN. 


10 GR 

25 LET C= 17 

45 IF AS = "C" THEN LET C=C+ 17 

46 IF 0255 THEN LETC-0 
90 COLOR=C:PLOTXY 

110 COLOR-Q:PLOT X,Y 


VIC 20 

9 INPUT S$:LET S-PEEK(7748) 

25 LET B-4:LET P=1 ;LET C=6 

26 POKE 38400 + X - Y^22,C 

27 POKE 7680 + X-tY # 22,S 

41 IF AS-="P" THEN LET P = P+ 1 

42 IF A$“' r B' J THEN LET B = B + 1 

43 IF AS- "C" THEN LET C-C+ 1 

44 IF P>15 THEN LETP = 0 

45 IF 6>7 THEN LET B - 0 

46 IF 07 THEN LETC-0 

47 POKE 36879,18+1 6* P+B) 

82 PRINT CHR$|19); 

90 POKE 36378 r !5:POKE 36875 r 225 
92 FOR T - 1 TO 1 00 :N EXIT 
95 POKE 36375 r 0 
100 GOTO 26 


Spectrum 

1 LET B=6 

2 PAPER B 
25 LETC-0 

41 IF AS="P ,r OR AS- J '8'" THEN LET B - B 4 1 
43 IF A$="C" THEN LET C=C+1 

45 IF B>7 THEN LET B~0 

46 IF C>7 THEN LETC-0 

47 BORDER G 

90 PRINT AT Y.XjINK C:SS 

BBC and Electron 

3 MODE 2 

25 LET C=7:LET B = 128 

26 COLOUR B 

42 IF AS-^C" THEN LET C-C + 1 

43 IF 07 THEN LETC-0 

45 COLOUR C 

46 IFA$=' J B"0RAS = "P J -THEN LET B=B + 1 

47 IF B>135 THEN LET B=128 

48 VDJ 19,128. B;0; 


36 'On the Apple you cannot change the background colour and the pictures are now 
drawn with coloured squares. 



Sound effects for Obstacle course game 


When you add the extra lines to the Obstacle 
course game, the computer produces a sound 
effect when you win the game and a different 
one if you crash.* 


Commodore 64 

50 IF Z(Q,W) = 1 THEN GOSUB 400:END 

60 IF Z(Q,W) = 2 THEN GOSUB 200:END 
200 PRINT CHR$(19) 

210 FOR J = 1 TO 20: PRINT: NEXT J 
220 PRINT TAB(15);"WELL DONE" 

230 POKE 54296, 15:POKE 54276,17 

240 POKE 54277. 129: POKE 54278,64 

250 FOR H = 0 TO 200:POKE 54273, H:NEXT H 

260 POKE 54272,0: POKE 54273,0 

270 RETURN 

400 PRINT CHR$(19) 

410 FOR J = 1 TO 20: PRINT: NEXT J 
420 PRINT TAB(15);"CRRRAAASH!" 

430 FOR D = 20 TO 0 STEP - 1 :POKE 54296,0 
440 POKE 54276,129:POKE 54277,15 
450 POKE 54273,40 :POKE 54272,200 :NEXT D 
460 POKE 54276, 0:POKE 54277.0:POKE 54273,0 
470 RETURN 


Apple 

50 IF Z(Q,W) = 1 THEN GOSUB 400:END 
60 IF Z(Q,W) = 2 THEN GOSUB 200: END 
200 PRINT "WELL DONE!" 

210 FOR N-1 T05:F0RT-1 TO 3 
220 PRINT CHRS(135) 

230 FOR P= 1 TO 10:NEXT P 

240 NEXTT:FOR P=1 TO 50.NEXT P 

250 NEXT N:RETURN 

400 PRINT "CRRRAAASH!" 

410 FOR N = 1 TO 100:SOUND-PEEK( 16336) 
420 NEXT N:RETURN 


VIC 20 

50 IF Z(Q,W)=1 THEN GOSUB 400:END 
60 IF ZIQ,W) = 2 THEN GOSUB 200:END 
200 PRINT CHR$(19) 

210 FOR J = 1 TO 20: PRINT: NEXT J 
220 PRINT TAB(5);"WELL DONE" 

230 FOR E = 1 TO 25:NEXT E 
240 GOSUB 500:RETURN 
400 PRINT CHR$(19) 

410 FOR J = 1 TO 20: PRINT: NEXT J 
420 PRINT TAB(5);"CRRRAAAASH!" 

430 POKE 36877,200 

440 FOR D = 15 TO 0 STEP -1 :P0KE 36878,D 
450 FORT=1 TO 40 : NEXT T: NEXT D 
460 POKE 36877,0: POKE 36878,0 
470 RETURN 

500 POKE 36878,15:FOR D-130 TO 240 
520 POKE 36876,D:FOR T-1 TO 5: NEXT T 
530 NEXT D:P0KE 36876, 0:POKE 36878,0 
540 RETURN 

Spectrum 

50 IF Z(Q,W)-1 THEN GOSUB 400:STOP 
60 IF Z(Q,W)=2 THEN GOSUB 200:STOP 
200 FOR N = 0 TO 50 STEP 2 
210 BEEP ,1,N : BEEP .1,N-2:NEXT N 
220 PRINT AT 10,9;"WELL DONE" 

230 RETURN 

400 PRINT AT 10,9;"CRRRAAASH!" 

410 FOR N-50TO0 STEP -1 
420 BEEP ,1,N:NEXT N 
430 RETURN 

BBC and Electron 

50 IF Z(Q,W)-1 THEN GOSUB400:END 
60 IF Z(Q,W)-2 THEN GOSUB 200:END 
200 PRINT TAB<5,27)"WELL DONE" 

210 FOR N = 0TO 120:SOUND 1, 15,N,1 

220 NEXT N:RETURN 

400 PRINT TAB(7,27)"CRRRAAASH!" 

410 FOR N = 0 TO 120:SOUND 1,- 15,120 -N,1 
420 NEXT N:CLS:RETURN 


*To hear the sound effects on the Commodore 64 and VIC 20 you may need to adjust 
the TV’s volume control. 


Puffing train graphics 

Below and on the next page are lines to 
add to the Puffing train program on page 
20. They make the computer draw a 
coloured train, and as it puffs along you 
can make it whistle by pressing the W i{\ 

key. V 

The lines are different for each \ 

computer, so make sure you type in the V. 

right ones for yours. Remember, too, / 

that you must type in all the program \ 

lines on pages 20-2 1 before adding the ^ 

extra lines. 


The train shape is made 
up of lots of blocks 
which are called 
graphics characters. 




You need a colour TV or 
monitor, to show the train 
iij colour. 


BBC and Electron 


2 MODE 1 :C0L0UR 13(3 

4 VDU 23,224,255,255.255,255,255,255,255,255 
6 VDU 23,225.225,255,255,255,(3,0,(3,0 (\ 

8 VDU 23,226,0,0,0,(3,255,255,255,255 
12 LET T$=CHR$(224) + CHR$(224) + CHR$(224) + CHR$(224) 


Here, lines 12 and 14 
take up more than one 
line but on your 
computer you should 
type each of them as one 
long line. 


+CHR$(224) + CHR$(224)-CHR$(224> + CHR$<32) 
14 LET T1$=CHR$(32) + CHR$(224) + CHR$(224) 
+CHRS(32) + CHRS(32) + CHRS(226) + CHR$(32) 
+CHRS(32) + CHR$(224) + CHR$(32) 

16 LET T2S=CHR$(32)4 CHR$(32) + T$ 

18 LET T3$=CHR$(32) + CHR$(224) + T$ 

22 COLOUR 0 

25 PRINT TAB(X,9)CHR$(225) 

45 COLOUR 1 
50 PRINT TAB(X)T1$ 

60 PRINT TAB(X)T2$ 

70 PRINT TAB(X)T3$ 

75 COLOUR 0 
120 SOUND 1, -9.0,1 

122 SOUND 1,-9, 5,1 

123 LET A$-INKEY$<0) 

125 IF A$^”W" THEN VDU 7 


Apple 

The lines below make the Apple produce 
the train’s whistle. There are no graphics 
instructions because they are very 
complicated and would take a long time to 
type in. 


114 GOSUB500 

120 A$-"":IF PEEK(-16384)>127 THEN GET A$ 

125 IF AS<>"W " THEN GOTO 130 

126 PRINT CHR$(135):FOR N = 1 TO 100 

127 NEXT N:PRINT CHR$(135) 

500 FOR T = 1 TO 10:SOUND = PEEK(- 16336) 

510 FOR Q-1 TO RND(1 )*15:NEXT Q 
520 NEXT TiRETURN 


38 




Commodore 64 


5 POKE 54296,1 5: POKE 54283,17 
7 POKE 54284,1 29: POKE 54285,128 
12 POKE 53233,1 4: POKE 53231,14 
25 PRINT TAB (X};CHR$(144);CHR$(184) 

46 LETR$=CHR$n8):LETO$=CHR$046hLETC$=CHR${28) 
50 PRINT TAB'lX);CS;''n' r ;RS; J 'nn J '-OS;"np i '; 

55 PRINT CHR$n85);"nn";CHR$(16l);"o" 

60 PRINT TAB(X);C$;"uu”;R$;' J uuuuuuu";Q$;"u^ 

70 PRINT TAB(X);C$;''n";RS;"nnt . i: )ncin";OS; J 'LT 
80 PRINT TAB(X|;CHR£El44); IJ n";Q$; JH nQOnOnO On" 

90 PRINT "HtM";TABtX f 7);CHRSt5);"n* □” 

100 IF X/2 = INT(X/2) THEN PRINT "t4^TAB|X + 8);CHRS(5);"* 

120 GET AS 

123 IF ASo"W" THEN GOTO 130 

124 FOR R=0 TO 1: POKE 54296,1 5 

125 POKE 54276,33: POKE 54277,129 

126 FOR T= 1 TO 25:POKE 54273,6S:POKE 54272,1 49: NEXT T 

127 POKE 54273.0: POKE 54272,0:PQKE 54276,0:NEXT R 

130 POKE 54296 J 15:POKE 54203,1 7:POKE 54284,129 

132 FOR T- 1 TO 1 5: POKE 54280, 17: POKE 54279,37: NEXT T 

134 POKE 54230,0: POKE 54279,0: POKE 54233,0 

135 NEXT X 



l This symbol ^ 
means type a ] 



C^lh^ymboN^ 

? you should press the 
cursor up down key 
:lll with SHIFT 


VIC 20 

5 POKE 36870,15 
12 POKE 36879,59 



For lilies 26 to 12H type 
I the lines listed for the 
, Commodore 64, 


124 FOR R-0 TO 1: POKE 36073,15 

125 POKE 36375, 225:FGRT=1 TO 200:NEXTT 

126 POKE 36375 r 0:NEXT R 

130 POKE 36878, 1 5 :POKE 36874,175 

131 POKE 36877 r 175;FORT=l TO 25:NEXT I 

132 POKE 36874,1 95: POKE 36377,195 

133 FOR T-1 TO 25: N EXT T 

1 34 POKE 36878,0 ;POKE 36374,0 : POKE 36877,0 

135 NEXT X 


Spectrum 

5 BORDER 5:PAPER 6 
25 PRINT AT9,X:INK1; 
45 INK 2 


50 

60 

70 

75 

120 

123 

125 



These graphics 
characters are on the 
number keys. Find 
the key marked with 
the shape you want 
and press it with 


1 




PRINT TAB(X);"o 

PRINTTAB{X);"no 
PRINT TAB{X};" G ■ 

INK 0 

BEEP .1,-2B>;BEEP.1,-15 
LET A$=INKEY$ 

IF AS- JJ W M THEN BEEP .5,20:BEEP .5,20 


J 
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Program conversions: BBC and Commodore 64 


Here and on. the next few pages are lines 
you may need to type instead of those on 
red (or grey) stripes. To find a line, look 
in the section for your computer and find 
the name and page number of the 
program you are typing in Then look for 
a line with the same number as the one 
on the stripe. If you cannot find one. you 
can type the line on the stripe just as it is. 

BBC conversions 

Page 14 

Drawing pictures 

30 LET A$“INKEY$[0) 

Page 16 
Computer Snap 

60 LET A$=INKEY$f0) 

Page 21 

Puffing train program 
Changing direction 

1443 LET A$ = INKEYS(0) 

Page 28 

Obstacle course game 

70 LET A$=INKEY$(0) 

Page 31 
Find the key 

40 IETA$-INKEYS(0) 

70 LETS = il\m(N/316W0m 


Commodore 64 conversions 


Page 7 

Special words 

10 PRINT CHRSM47) 


Page 8 

Happy Birthday 

10 3 RINT CHRSC147) 


Page 10 

Space monsters 

10 PRINT CHR$(147) 

Page 1 1 

Making the monster move 

120 PRINT CHR$(147) 


Page 12 


Red Alert 

10 PRINT CHR$(147) 

Page 13 

Personal messages 
2 PRINT CHRSH 47) 


\ Add lines sa 
/ and 84 to the 
[ program. 

IS-' 



Page 14 

Drawing pictures 

10 PRINT CHRSM47) 

30 GET AS 
82 PRINT CHRS(19) 

84 FORK 1 TO Y; PRINT - NEXT K 


90 PRINT TA.B(X)' J ' * fr 


Page 15 

Rubbing out stars 

110 PRINTTAB(X);" " 


Patterns with different symbols 

3 PRINT CHRS4147} 

90 PRINT TAB(X);SS 

P age 1 6 Computer Sn a p 

10 PRINT CHR$(147) 

60 GET AS 


40 



Page 18 
Code- writer 

10 PRINT CHR$(147) 
106 PRINT CHRSH47) 


Each time you see this L 
symbol, you should 
press tliis key with 
SHIFT. 



Page 20 

Puffing train program 

16 PRINT CHR${147) 

46 PRINT CHRS(1 9) 

45 PRINT: PRINT ;PRINT: PRINT 
90 PRINT ifitt";TAB{X + 7);" * 
100 IF X/2 = INTlX/2) THEN PRINT " 
116 PRINT "t";TAB(X);"n' r 


Page 21 

Adding a railway track 

24 PRINT CHR$(19):F0R Y- 1 TO 8:PRINT:NEXT Y 

25 PRINT TAB(X);"=" 

Changing direction 

117 PRINT ' t";TAB(X + 16);" 

146 GET AS 


Page 28 

Obstacle course game 

LET A -38 : LET B -20 

LET Z$=CHR$(18)4 CHRSi 160)- CHR${146) 
PRINT CHRS(147l:OIM Z(A,B} 

PRINT CHRS(19) 

FOR K= 1 TO W:PRINT:NEXT K 
PRINTTAB(Q)-"^" 

GET AS 

LET Z(X.Y) = 1 : PRINT CHR$(19) 

FOR K - 1 TO Y; PRINT: NEXT K 
PRINTTAB(X);ZS r 

There are five extra lines 
here. Make sure you add 
them to the program. 




Page 22 

Computer postcard 

10 PRINT CHR$(147) 
110 PRINT CHRSH47) 


Page 24 

Birthday fact -finder 

10 PRINT CHR$(147):DIM N(12) 

Page 26 
Star racer 

10 PRINT CHRS(147) 

40 PRINT ; PRINT TAB(0j;K 
59 PRINT CHRS09) 

70 PRINT :PRINT TAB1X£K)|; JJ 
120 IF Y— 0 THEN GOTO 59 

Page 27 

Adding a race track 

51 PRINT CHR$(19) 

Race game 

28 PRINT CHRS(147):LETY 0 



Page 29 

Improving the game 

34 IF Z(K,L) = 1 THEN GOSUB 1 50 
150 PRINT CHRS(19) 

160 FQRJ= 1 TO L.PRlNT:NEXT J 
170 PRfNTTAB(K);ZS 
180 RETURN ( Add these 

extra lines to 
Page 31 ) the program 

Find the key 
10 PRINT CHRS(147):LET N = 0:LET A ASCf'A") 
40 GET AS 

70 LETS- INTUN/1 15)*10)/10 

Pag e 32 

Guess the number 

10 PRINT CHRS047) 

Page 33 
Mindreader 

10 PRINT CHRS(147) 

240 PRINT CHR$il 47) 

Page 34 

Geography quiz 

10 PRINT CHRS047) 

180 PRINT CHRSH47) 

Page 35 

Times table quiz 

30 PRINT CHRS{147) 


> 
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Program conversions: Electron and VIC 20 


Electron conversions 


Page 14 

Drawing pictures 


30 LET A$= INKEY$(0j 

Page 16 
Computer Snap 

60 LET A$=INKEY$(01 


You should 
add this line to 
the program 


Page 2 1 

Puffing train program 
Changing direction 

140 LET AS=INKEY$(0) 

Page 28 

Obstacle course game 

5 VDU 23,255,255,255,255,255,255,255,255,255 
70 IETA$=INKEY$<0| 



Page 31 
Find the key 

40 LET AS=lNKEY$t0| 


Page 12 
Red Alert 

10 PRINT CHR$(147| 


Page 13 

Personal messages 

2 PRINT CHRSH47) 

Page 14 

Drawing pictures 

10 PRINT CHRSH47} 

30 GET AS 
32 PRINT CHR$(19) 

34 FOR K=1 TO Y:PR!IMT 
90 PRINT TAB(XJ;'V' 



Page 15 

Rubbing out stars 

110 PRINT TAB(X);" " 


Patterns with different symbols 

3 PRINT CHR$(147) 

90 PRINT TAB(X);S$ 


VIC 20 conversions 
Pag e 7 

Special words 

10 PRINT CHR$047) 

Page 8 

Happy Birthday 

10 PRINT CHR$fl47| 

Page 10 
Space monsters 

10 PRINT CHRS(147> 


Page 1 1 

Making the monster move 

120 PRINT CHR${147) 


Page 16 
Computer Snap 

10 PRINT CHR5C147) 

60 GET AS 

Page 18 
Code- writer 

10 PRINT CHRSH47) 

100 PRINT CHR$(147) 

Page 20 

Puffing train program 

10 PRINT CHRSO 47) 

20 LET A=0;LET 8= 10 ; LET C = 1 
40 PRINT CHRSM 9) 

45 PRINT: PR I NT: PRINT: PRINT 
90 PRINT "tHtt";TABtX+7);''u# 

100 IF X/2 -INTIX/2J THEN PRINT "ft ";TAB(X+8);'*" 
110 PRINT ,J t' r ;TAB(X);"n" 
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Page 21 

Adding a railway track 

24 PRINT CHR$(19):F0R Y=1 TO 8:PRINT:NEXT Y 

25 PRINT TAB(X);" = " 


Changing* direction 

117 PRINT "t";TAB(X + 16);"u" 

140 GETAS 

Add line 24 to / 
the program. } 



Page 22 
Computer postcard 

10 PRINT CHRS(147) 
110 PRINT CHR$(147) 


Page 24 

Birthday fact-finder 

10 PRINT CHR$(147):DIM N( 1 2) 


Page 26 
Star racer 

10 PRINT CHRS<147) 

PRINT: PRINT TAB(0>;K 
PRINT CHR$(19) 
PRINTiPRINT TAB(X(K)); 


40 

59 

70 

80 

120 



IF X(K) = 19 AND Y = 0 THEN LETY-K 
IF Y=0 THEN GOTO 59 


Page 28 

Obstacle course game 


LET A=20:LET B~20 
LET ZS=CHR$(18) + CHRS(160) 
PRINT CHRS(147):DIM Z(A.B) 
PRINT CHRS09) 

FOR K=1 TO W: PRINT: NEXT K 
PRINT TABIQ);''*" 

GETAS 

LET Z(X,Y) = 1 :PRINT CHRS(19) 
FORK-1 TO Y:PRINT:NEXTK 
PRINT TAB(X);ZS 


CHRS(146I 


10 

15 

20 

40 

43 

45 

70 

100 

103 

105 


Page 29 

Improving the game 

34 IFZ(K f L) = 1 THEN GOSUB 150 
150 PRINT CHR$(19) 

160 FOR J = 1 TO L:PRINT:NEXT J 
170 PRINT TAB(K);ZS 
180 RETURN 

Page 31 
Find the key 

10 PRINT CHRS(147):LET N=0:LET A=ASC(“A") 
40 GETAS 

70 LET S = INT((N/140)*10)/10 

Page 32 

Guess the number 

10 PRINT CHR$(147) 



Page 33 
Mindreader 

10 PRINT CHRS047) 
240 PRINT CHRS(147) 


Page 27 

Adding a race track 

51 PRINT CHRS(19) 

53 FOR L=1 TO 21 


Page 34 

Geography quiz 

10 PRINT CHRSH47) 
180 PRINT CHRS047) 


Race game 

28 PRINT CHRS(147):LETY-0 


Page 35 

Times table quiz 

30 PRINT CHRS047) 
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Program conversions: Spectrum 


PageS Happy Birthday 

50 PRINT AS(K TO K}; 


Page 14 Drawing pictures 

35 FOR K = 1 TO 1 5:NEXT K 
90 PRINT AT Y, X; J V 

Page 15 Rubbing out stars 

110 PRINT AT Y,X/' " 


You should 
( add this line tc | 
\ the program - 



Patterns with different symbols 

90 PRINT AT Y,X;5S 

Page 16 Computer Snap 


Page 26 Star racer 

40 PRINT AT K+K h 1;K 
70 PRINT AT K+K f X(K);" ■*" 

80 IF X(KJ~30 AND Y=0 THEN LET Y^K 
90 LET R = I NT{RND ^ 2+ 1 ) 


Page 27 Adding a race track 


51 PRINT AT 0,0 
53 FOR L~ 1 TO 31 

Race game 

57 PRINT G1 
59 PRINT G2 



Add! these two 
lines to the 
v progTiiin . 


30 LET X = INTI RND* 10 t 1) 

40 LETYHNTtRND #104 1) 

Page 17 Word and number snap 

2 DIM NSH0..5} 

Page IS Code- writer 

70 LET C$=CS- M${K + 1 TO K + 1) 

80 LETCS-CSh MS(KTQK) 

Pag e 2G Puffing train program 

20 LET A - 0 :LET G -20 : LET C = 1 

40 PRINT AT 4,0 

90 PRINT AT 4 r X + ?:"□ * j" 

100 IF X/2-INT(X/2) THEN PRINT AT 3.X ■ S;' r *" 
110 PRINT AT 3 r X;": i rr 

Page 31 Adding a railway track 

25 PRINT AT 9,X;" = " 

Changing direction 

117 PRINT AT 3,X + 16; JJ " 

Page 23 Writing thank-you letters 

165 LETR==INT(RND* 5 + 13 

Page 25 Day-finder 

15 DIM DS(8,9) 


Page 28 Obstacle course game 

10 LE T A=30 : LE T 0 = 20 : LET ZS - CH R${ 1 43) 
40 PRINT AT W,Q;'V r 
80 LET X-INTiRND * A+1J 
90 LET Y = INT(RND * B 4-1) 

100 LET Z(X,Y) 1: PRINT AT Y r X;2S 

Page 29 Improving the game 

32 LET Z{A,INT(RND * 15+3)) = 2 
34 IF Z{K,L) - 1 THEN PRINT AT L,K;ZS 

Page 31 Find the key 

10 CLS'LET N=0:LET A=CODE{“A' I J 
20 LET X-INTERND * 26 + A) 

70 LET S - INT({N/77J* 10}/10 



60 LETY=INT(RND*12 + 1) 
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Program conversions: Apple 


Page 7 

Special words 

10 HOME 

Page S 

Happy birthday 

10 HOME 

Page 10 
Space monsters 

10 HOME 

Page 11 

Making the monster move 

120 HOME 

Page 12 
Red Alert 

10 home 

Page 13 

Personal messages 

2 HOME 

Page 14 

Drawing pictures 

10 HOME 

30 A$="":IFPEEKi 16384)>127 THEN GET AS 
90 VTAB(YJ:HTAB(XTPRINrV H 


Page 20 

Puffing train program 

10 HOME 


20 LET A=1 : LET 8=29: LET C -1 
40 VTAB(5):HTABI1) 

90 VTAB(4):HTAB{X+7):PRINT " *i 
100 IF X/2=INT(X/2) THEN VTAB(3): 
HTABIX + S): PRINT "Y- ' 

110 VTAB(3):HTAB1X}PRINT M " 

n This line 

continues below. 

Don't press 
RETURN until 
} you get to the 
\ end , 



Page 21 

Adding a railway track 

25 VTAB(9):HTAB[X):PRINT "= Hr 

Changing direction 

117 VTABf3):HTABfX + 16); PRINT " " 

140 AS="":IFPEEK[-163841>127THEN GET AS 

Page 22 

Computer postcard 

10 HOME 
110 HOME 


Page 15 

Rubbing out stars 

110 VTAB(Y}:HTAB1X):PRINT" " 

Patterns with different symbols 

3 HOME 

90 VTAB(Y):HTAB<X):PRINTSS 

Page 16 
Computer Snap 

10 home 

60 AS- JJ ".1F PEEK( 1 6384) >1 27 THEN GET AS 

Page IS 
Code -writer 


Page 24 

Birthday fact- finder 

10 HOME ;DIM N ( 1 2 > 

Page 26 
Star racer 

10 HOME 

40 VTAB(K-l-K):HTAE!(1 ): PRINT K 
70 VTABfK + KJ:HTAB(X(K}):PRlNT “ * 

Page 27 

Adding a race track 

51 VTABdbHTABU) 


10 HOME 
100 HOME 


Race game 

26 HQME:LET Y = 0 
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Apple conversions 
Page 28 

Page 32 

Obstacle course game 

Guess the number 

10 LETA-39:LETB-23:LETZS -'T r 

10 HOME 

20 HQME:DlMZ(A r B} 

40 VTAB(W}:HTABjQ):PR!NT 

Page 33 

70 AS = "" ■ 1 F PEEK! - 1 6384) >1 27 THEN GET AS 

Mindreader 

100 LET Z(X,Y) = 1 

10 HOME 

10S VTAB[Y>:HTAB(X):PRINTZ$ 

240 HOME 

Page 29 

Page 34 

Improving the game 

Geography quiz 

34 IF ZIK,L)= 1 THEN VTAB(LkHTAB{K):PRINT ZS 

10 HOME 

Page 31 
Find the key 

10 HOME:LETN-0:LETA=ASC! r, A' r } 

180 HOME 

Page 35 

40 A5=-"":IF PEEK! -16334)>127 THEN GET AS 

Times table quiz 

30 HOME 

70 LETS=INT((N/56)*10)/10 


Key chart 

This chart shows 
the names that 
the different 
computers give to 
the RETURN, 
ESCAPE and 
DELETE keys. 
When yon are 
told to use one of 
these in this 
book, you should 
press your 
computer’s key. 


There is also a 
BREAK key, but do 
not use it because it 
wipes the program 
from the computer’s 
memory. 
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Bug-spotting guide 

If a program does not work, it usually 
means there is a mistake or bug' in it. The 
computer may display an error message 
winch tells you what sort of mistake it is 
and what line it is in. If not, list the 
program and check each line very 
carefully. Even tiny bugs can stop a 
program working. There are some hints 
for what to look for below. 


Make sure that you have 
made all the line changes 
needed for your computer. 
Check the lines on stripes 
against the conversions for 
your computer. 


Look out for simple typing 
mistakes in BASIC 
commands. The computer 
will not understand if you 
spell these wrongly. 


Check for missing quotation 
marks. It is very easy to 
forget these when you are 
typing a program and it 
confuses the computer. 



in all the punctuation marks. 
They are very important in 
BASIC as they have special 
meanings. 


r 5 i 

70 PftIMT ’'YEARS OLD" 



Check that you have typed all 
the numbers with the number 
keys. It is very easy to 
muddle the number O with 
the letter O. 



If you still cannot find a bug 
try retyping the longer or 
more complicated lines 
again. You might correct a 
mistake you have not 
noticed. 
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Birthday fact-finder 
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Happy birthday program . 8 
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INPUT, 4 

Race game , 27 


Red Alert program, 12 

conversions, 40-46 
how to make, 7 

key chart, 46 

RETURN. 4, 46 
RUN, 5 

cursor, 4 

LIST, 6 

running programs, 5 

debugging a program, 6,47 


saving programs on tape, 23 

DELETE, 5, 46 

Mind reader program, 33 

Drawing pictures 

Snap program „ 1 6 

main program. 14 

mistakes, 6 

sound effects, 37 

in colour. 36 

how to correct. 6,47 

Space monsters program, 10 
Star racer program, 26 
stopping programs, 9 

ENTER, 4, 6,46 
error messages, 6, 47 

NEW, 5 

TAB, 12 

ESCAPE, 9, 46 



Obstacle course game 

Thank-you letter program, 23 


main program, 28 

Times table quiz, 35 

Find the key program, 31 

sound effects, 37 

typing in programs, 4 
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FIRST COMPUTER LIBRARY 


The First. Computer Library is a lively and colourful new series for young' 
beginners to computing. A gang of friendly ghosts and monsters show the 
reader what computers can do. how they work and how to program them. The 
books are packed with short, entertaining programs which will run on most 
makes of home computer . 



All About Computers 

This colourful introduction 


explains in simple terms what 
a computer is, how it works 
and what it can do. Short 
programs are included to 
illustrate the explanations. 
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Simple BASIC 

A simple and fun introduction 
to programming in BASIC, 
with m asses of en tertai n i n g 
programs to try and puzzles 
to solve. 


, -j 



This bonk is packed with 
programs to make a computer 
flash messages, play games, 
make pictures and lots besides. 
No previous programming 
knowledgeis needed, 



The Usborne First Guide to the BBC Micro 

This friendly guide for young readers explains exactly how to set up 
and use a BBC computer. A group of little monsters explain how to 
program in BBC BASIC, give helpful advice on things that can go 
wrong and show what the BBC micro can do. 
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